Celestin Apprentice 2/Apprentice-Release2.iso/Tools/Languages/Caml Light 0.61/Source/src/tools/push_version

Text File | 1992-08-31 | 368 b | 27 lines | [TEXT/MPS ]

Set Echo 0
Set n 0
Loop
  Set flag 0
  For i in {"Parameters"}
    If "`Exists {i}.{n}`"
      Evaluate n += 1
      Set flag 1
      Break
    End
  End
  Break If ! {flag}
End

loop
  break if {n} == 0
  set m `evaluate {n} - 1`
  for i in {"Parameters"}
    rename {i}.{m} {i}.{n} || ;
  end
  evaluate n -= 1
end

For i in {"Parameters"}
  Duplicate {i} {i}.0
End